home *** CD-ROM | disk | FTP | other *** search
/ ADA Programming Guide / ADA Programming Guide.iso / ada_gwu / clear.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-01-30  |  1.3 KB  |  43 lines
  1. /*
  2.     GWAda Development Environment for 386/486 PCs   
  3.     Copyright (C) 1993, Arthur Vargas Lopes  & Michael Bliss Feldman
  4.                         vlopes@vortex.ufrgs.br mfeldman@seas.gwu.edu
  5.  
  6.     This program is free software; you can redistribute it and/or modify
  7.     it under the terms of the GNU General Public License as published by
  8.     the Free Software Foundation; version 2 of the License.    
  9.  
  10.  
  11.     This program is distributed in the hope that it will be useful,
  12.     but WITHOUT ANY WARRANTY; without even the implied warranty of
  13.     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14.     GNU General Public License for more details.
  15.  
  16.     You should have received a copy of the GNU General Public License
  17.     along with this program; if not, write to the Free Software
  18.     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  19. */
  20.  
  21. /* clear.c */
  22.  
  23. #include "externs.h"
  24.  
  25.  
  26.  
  27. void AVL_CLEAR_LINE()
  28. {
  29.     AVL_EDIT_WINDOW_PTR w;
  30.     int i, n;
  31.     short att, bk, co;
  32.     att = *AVL_MAP(25,1);
  33.     att = att >> 8;
  34.     bk  = att >> 4;
  35.     co  = (att << 4) >> 4;
  36.     w   = &avl_windows[avl_window];
  37.     n   = w -> scr_row + w -> r1 - 1;
  38.     for(i = w -> c1; i <= (w -> c2 - w -> c1 + 1); ++i)
  39. /*  AVL_PUT(' ',n,i,bk,co);
  40. */
  41.         AVL_WVIDEO(' ',(unsigned char) (avl_txt_bk_color << 4 | avl_txt_color)
  42.             , AVL_MAP(n,i));
  43. }
  44.